home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1389.dms / var1389.adf / whip! / whip!.amosSourceCode < prev   
AMOS Source Code  |  1993-05-31  |  558b  |  24 lines
  1. SOMETHING
  2. '
  3. Procedure SOMETHING
  4. Hide 
  5. Unpack 6 To 0
  6. Colour Back Colour(0)
  7. Wait Vbl 
  8. If Not Exist("KIDS-1:") Then End 
  9. If Not Exist("KIDS-1:docs/doc.asc") Then End 
  10. If Not Exist("KIDS-1:docs/kids.asc") Then End 
  11. If Not Exist("KIDS-1:prog.asc") Then End 
  12. If Not Exist("KIDS-1:cta") Then End 
  13. If Not Exist("KIDS-1:flipping") Then End 
  14. If Not Exist("KIDS-1:dred") Then End 
  15. If Not Exist("KIDS-1:over_to") Then End 
  16. If Not Exist("KIDS-1:arty") Then End 
  17. Save "ram:screen.pic",7
  18. Get Fonts 
  19. Set Font 3
  20. Set Font 4
  21. Set Font 5
  22. Get Rom Fonts 
  23. Run "ram:Over_to"
  24. End Proc